inherited frmServico: TfrmServico
  Left = 246
  Top = 113
  Caption = 'frmServico'
  ClientHeight = 452
  ClientWidth = 813
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 415
    Width = 813
  end
  inherited Panel2: TPanel
    Width = 813
    Height = 415
    inherited Panel3: TPanel
      Width = 811
      Caption = 'Servi'#231'os'
      inherited GroupBox1: TGroupBox
        Left = 732
      end
    end
    inherited Panel4: TPanel
      Width = 811
      Height = 373
      object Label1: TLabel [0]
        Left = 16
        Top = 6
        Width = 33
        Height = 13
        Caption = 'Codigo'
      end
      object Label2: TLabel [1]
        Left = 16
        Top = 39
        Width = 48
        Height = 13
        Caption = 'Descri'#231#227'o'
      end
      object Label3: TLabel [2]
        Left = 101
        Top = 7
        Width = 45
        Height = 13
        Caption = 'Pre'#231'o R$'
      end
      object Label4: TLabel [3]
        Left = 203
        Top = 8
        Width = 56
        Height = 13
        Caption = 'Comissao %'
      end
      inherited DBGrid1: TDBGrid
        Top = 120
        Width = 803
        Height = 230
        TabOrder = 5
      end
      inherited SbHints: TStatusBar
        Top = 350
        Width = 803
      end
      object EdtSercCod: TDBEdit
        Left = 16
        Top = 20
        Width = 79
        Height = 21
        Hint = 'Codigo do servi'#231'o.'
        CharCase = ecUpperCase
        DataField = 'SER_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtSercCodExit
      end
      object EdtSercComissao: TDBEdit
        Left = 202
        Top = 21
        Width = 89
        Height = 21
        Hint = 'Comiss'#227'o pelo servi'#231'o.'
        CharCase = ecUpperCase
        DataField = 'SER_COMISSAO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object EdtSercPreco: TDBEdit
        Left = 101
        Top = 21
        Width = 93
        Height = 21
        Hint = 'Pre'#231'o do servi'#231'o.'
        CharCase = ecUpperCase
        DataField = 'SER_PRECO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object DBRadioGroup1: TDBRadioGroup
        Left = 294
        Top = 8
        Width = 134
        Height = 36
        Caption = 'Complementar descri'#231#227'o'
        Columns = 2
        DataField = 'SER_COMPLEMENTO'
        DataSource = DtSrc
        Items.Strings = (
          '&Sim'
          '&Nao')
        TabOrder = 3
        Values.Strings = (
          'S'
          'N')
      end
      object EdtSercDescri: TDBMemo
        Left = 16
        Top = 55
        Width = 345
        Height = 49
        Hint = 'Descri'#231#227'o do servi'#231'o.'
        DataField = 'SER_DESCRI'
        DataSource = DtSrc
        TabOrder = 6
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Servico
    Left = 88
    Top = 160
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 192
    Top = 176
  end
  object SQLC_Servico: TSQLClientDataSet
    CommandText = 'select * from SERVICOS where SER_CODIGO=:sercodigo;'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'sercodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 38
    Top = 227
    object SQLC_ServicoSER_CODIGO: TStringField
      DisplayLabel = 'CODIGO'
      FieldName = 'SER_CODIGO'
      Required = True
      Size = 13
    end
    object SQLC_ServicoSER_PRECO: TFMTBCDField
      DisplayLabel = 'PRE'#199'O R$'
      FieldName = 'SER_PRECO'
      Precision = 15
      Size = 3
    end
    object SQLC_ServicoSER_COMISSAO: TFMTBCDField
      DisplayLabel = 'COMISS'#195'O %'
      FieldName = 'SER_COMISSAO'
      Precision = 15
      Size = 2
    end
    object SQLC_ServicoSER_COMPLEMENTO: TStringField
      DisplayLabel = 'COMPLEMENTO'
      FieldName = 'SER_COMPLEMENTO'
      Required = True
      Size = 1
    end
    object SQLC_ServicoSER_IDFSERVICO: TIntegerField
      FieldName = 'SER_IDFSERVICO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SQLC_ServicoSER_DESCRI: TMemoField
      FieldName = 'SER_DESCRI'
      BlobType = ftMemo
      Size = 1
    end
  end
end
